home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs25.d81 / mterm40.arc / BOOT4.0+ (.txt) next >
Commodore BASIC  |  2009-10-10  |  4KB  |  94 lines
  1. 20 REM _"@0:BOOT4.0+
  2. 40 PG$[178]"MIDITERM4.0+":DR[178][194](186):[139][194](49446)[179][177]8[167] [147] PG$,DR,1
  3. 60 [134] IN(3,2,15)
  4. 80 [129]TX[178]1[164]3:[129]TM[178]1[164]15:[135] IN(TX,1,TM),IN(TX,2,TM):[130]:[130]
  5. 100 [129]TM[178]1[164]5:[135]DR(TM):[130]:[129]TM[178]1[164]5:[151](DR(TM)),DR:[130]
  6. 120 AD[178]820
  7. 140 [129]D[178]AD[164]AD[170]165:[135]Y:[151]D,Y:[130]:[151](831),DR:[151](851),DR:[151](965),DR
  8. 160 [153]"LOAD      MIDI INTERFACE TYPE (P/S/D) ?"
  9. 180 [153]"        (P)ASSPORT/SONUS/SYNTECH"
  10. 200 [153]"        (S)EQUENTIAL/DR T"
  11. 220 [153]"        (D)ATEL/SIEL/JMS"
  12. 240 [161]IN$:[139]IN$[178]""[167]240
  13. 260 [139]IN$[178]"P"[167] [129]TM[178]1[164]15:[151](IN(1,1,TM)),IN(1,2,TM):[130]:[137]340
  14. 280 [139]IN$[178]"S"[167] [129]TM[178]1[164]15:[151](IN(2,1,TM)),IN(2,2,TM):[130]:[137]340
  15. 300 [139]IN$[178]"D"[167] [129]TM[178]1[164]15:[151](IN(3,1,TM)),IN(3,2,TM):[130]:[137]340
  16. 320 [137]240
  17. 340 OI$[178]"INSTRUCT4.0":FG[178]14:BK[178]00:BD[178]00:F1[178]07:F2[178]01
  18. 360 SC[178]3:PR[178]4:WL[178]1000:[151]53280,BD:[151]53281,BK:[151]646,FG
  19. 380 [153]"LOAD":[153]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  20. 400 PRINT" [221]                                    [146][221]
  21. 420 [153]" (null)            ";PG$;"            WAIT(null)
  22. 440 PRINT" [221]                                    [146][221]
  23. 460 [153]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)":[153]:[151]646,F1
  24. 480 [153]"     COMPATIBLE WITH: PASSPORT":[153]"                      SEQUENTIAL"
  25. 500 [153]"                      DATEL         ":[153]:[151]646,FG
  26. 520 [153]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  27. 540 PRINT" [221]                                    [146][221]
  28. 560 [153]" (null)        (C) 1987  TIM MARTIN        WAIT(null)
  29. 580 PRINT" [221]                                    [146][221]
  30. 600 [153]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)":[153]"":[151]646,F1
  31. 620 [153]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  32. 640 PRINT" [221]      SKIP INSTRUCTIONS (Y/N) ?     [221]
  33. 660 [153]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  34. 680 GETIN$:IFIN$=""THEN680
  35. 700 IFIN$="Y"THEN1240
  36. 720 PRINT"[145][145][145][145][145]":POKE646,F2:PRINT" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  37. 740 [153]" (null)  DISPLAY INSTRUCTIONS TO PRINTER?  (null)
  38. 760 PRINT" [221]                                    [221]
  39. 780 [153]" (null)       YWAIT FOR OUTPUT TO PRINTER      (null)
  40. 800 PRINT" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  41. 820 [161]IN$:[139]IN$[178]""[167]820
  42. 840 [139]IN$[178]"Y"[167]DV[178]PR:[137]880
  43. 860 DV[178]SC
  44. 880 [153]"LOAD":[151]646,F1:[153]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  45. 900 PRINT" [221]   PRESS ANY KEY TO PAUSE DISPLAY   [221]
  46. 920 [153]" (null)          <RETURN> TO QUIT          (null)
  47. 940 PRINT" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":FORI=1TOWL:NEXT:PRINT:POKE646,FG
  48. 960 OPEN8,DR,8,OI$+",S,R":OPEN4,DV
  49. 980 INPUT#8,IN$:IFST<>0ANDIN$=""THEN1120
  50. 1000 PRINT#4,IN$;CHR$(13);:GETIN$:IFIN$=""THEN1080
  51. 1020 IFIN$<>""THEN1060
  52. 1040 IFIN$=CHR$(13)THEN1100
  53. 1060 GETIN$:IFIN$=""THEN1060
  54. 1080 GOTO980
  55. 1100 REM
  56. 1120 PRINT#4:PRINT#4:CLOSE8:CLOSE4:IFIN$=CHR$(13)THEN1220
  57. 1140 POKE646,F1:PRINT" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  58. 1160 [153]" (null)     PRESS <RETURN> TO CONTINUE     (null)
  59. 1180 PRINT" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  60. 1200 [161]IN$:[139]IN$[179][177][199](13)[167]1200
  61. 1220 [153]:[151]646,FG:[137]380
  62. 1240 [153]"ONONONON":[151]646,F1:[153]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  63. 1260 PRINT" [221]         LOADING ";PG$;"        [221]
  64. 1280 [153]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  65. 1300 GOSUB1340
  66. 1320 SYS49152:END
  67. 1340 PRINT"[147]1) END KEY W/ FE TO ENABLE RECEPTION.  
  68. 1360 [153]"2) STOP RECEPTION W/ <F7> KEY.         
  69. 1380 PRINT"3) <SPACE BAR> TRANSMITS BUFFER.       ":RETURN
  70. 1400 REM **  PASSPORT **
  71. 1420 DATA49344,19,49346,8,49444,19,49446,8,49449,145,49451,8,51501,8,51531,9
  72. 1440 DATA51539,9,51598,145,51600,8,51614,8,51627,9,51643,177,51645,8
  73. 1460 REM **  SEQUENTIAL  **
  74. 1480 DATA49344,3,49346,0,49444,3,49446,0,49449,149,49451,0,51501,2,51531,3
  75. 1500 DATA51539,1,51598,149,51600,0,51614,2,51627,1,51643,181,51645,0
  76. 1520 REM **  DATEL **
  77. 1540 DATA49344,3,49346,4,49444,3,49446,4,49449,150,49451,4,51501,6,51531,7
  78. 1560 DATA51539,5,51598,150,51600,4,51614,6,51627,5,51643,182,51645,4
  79. 1580 REM ** DISK **
  80. 1600 DATA 49604,49643,49688,49733,49772
  81. 1620 REM ** DIR DATA **
  82. 1640 DATA169,0,32,144,255
  83. 1660 DATA169,147,32,210,255,169,8,170,160,0,32,186,255,169,1,162,96,160,163,32
  84. 1680 DATA189,255,32,192,255,162,8,32,198,255,32,207,255,32,207,255,32,207,255
  85. 1700 DATA32,207,255,240,91,32,207,255,72,32,207,255,72,160,0,32,207,255,153,32
  86. 1720 DATA2,240,40,201,34,240,3,200,208,241,200,32,207,255,153,32,2,201
  87. 1740 DATA0
  88. 1760 DATA208,10,32,207,255,208,251,104,104,24,144,202
  89. 1780 DATA200,32,207,255,153,32,2,240,3,200,208,245,104,168,104,170,152
  90. 1800 DATA32,205,189,169,32,32,210,255,160,0,185,32,2,240,6,32,210
  91. 1820 DATA255,200,208,245,169,13,32,210,255,208,157,162,0,134,198,169,8
  92. 1840 DATA32,195,255,32,198,255
  93. 1860 DATA165,198,240,252,169,147,32,210,255,169,0,133,198,96
  94.